home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / gm313exe.zip / GMON151B.MRG < prev    next >
Text File  |  1988-01-02  |  3KB  |  70 lines
  1. * MERGE THIS BLED FILE AGAINST RBBS 15.1B'S RBBSSUB2.BAS TO ALLOW YOU TO RUN
  2. * GMON WITH YOUR MODIFIED 15.1B.  THIS ALSO INCLUDES PASSWORD BYPASS
  3. * ON RETURN FROM DOORS, BUT THE USER WILL STILL GET THE STATUS REPORTS
  4. * ON RE-ENTRY TO RBBS.  MIKE HAMMER, SYSOP INVESTMENT HEAVEN RBBS, RENO, NV.
  5.  
  6. * REPLACEIN LINES - NOTE THEY ARE ALL IN ONE BLOCK OF THE CODE.
  7.  
  8. 10980 WEND
  9.       CLOSE 2
  10.       INFILE = (X > 0)
  11.       END SUB
  12. ' $SUBTITLE: 'DOOREXIT -- Setup to exit to a "door"'
  13. ' $PAGE
  14. '  SUBROUTINE NAME    -- DOOREXIT
  15. '
  16. '  INPUT PARAMETERS   -- PARAMETER             MEANING
  17. '                        MULTI.LINK.PRESENT
  18. '                        NODE.ID$
  19. '                        RBBS.BAT$
  20. '                        Z$
  21. '
  22. '  OUTPUT PARAMETERS  -- Q                    NUMBER OF LINES TO WRITE OUT TO
  23. '                                             RCTTY.BAT$
  24. '                        B$()                 LINES TO WRITE OUT TO RCTTY.BAT$
  25. '
  26. '  SUBROUTINE PURPOSE -- SET UP B$() AND Q IN ORDER TO CALL "EXITRBBS" AND
  27. '                        EXIT RBBS-PC TO INVOKE ANTOHER PROGRAM
  28. '
  29.       SUB DOOREXIT STATIC
  30. 10987 A$(1) = DISK.FOR.DOS$+ "COMMAND /C " + Z$ + NODE.ID$
  31.       A$(2) = RBBS.BAT$
  32.       PRIVATE.DOOR = -2                                   'MS/SOTR
  33.       Z$ = LEFT$(Z$,INSTR(Z$,".")-1)
  34.       A$ = Z$ + " door opened at " + TIME$ + " on " + DATE$
  35.       SUBROUTINE.PARAMETER = 5
  36.       CALL TPUT
  37.       CALL UPDTCALR (LEFT$(Z$,LEN(Z$)-4) + " door opened!",2)
  38.       CLOSE 2
  39.       OPEN "O",2,"DORINFO" + MID$(NODE.ID$,2) + ".DEF"     'MS/SOTR - RBBS 15.1C
  40.       PRINT #2,RBBS.NAME$                                  'MS/SOTR - RBBS 15.1C
  41.       PRINT #2,SYSOP.FIRST.NAME$                           'MS/SOTR - RBBS 15.1C
  42.       PRINT #2,SYSOP.LAST.NAME$                            'MS/SOTR - RBBS 15.1C
  43.       PRINT #2,COM.PORT$                                   'MS/SOTR - RBBS 15.1C
  44.       PRINT #2,BAUD.PARITY$                                'MS/SOTR - RBBS 15.1C
  45.       PRINT #2,NETWORK.TYPE                                'MS/SOTR - RBBS 15.1C
  46.       PRINT #2,FIRST.NAME$                                 'MS/SOTR - RBBS 15.1C
  47.       PRINT #2,LAST.NAME$                                  'MS/SOTR - RBBS 15.1C
  48.       PRINT #2,CITY.STATE$                                 'MS/SOTR - RBBS 15.1C
  49.       PRINT #2,GR                                          'MS/SOTR - RBBS 15.1C
  50.       PRINT #2,USER.SECURITY.LEVEL                         'MS/SOTR - RBBS 15.1C
  51.       CALL TIMEREMAIN (TIME.REMAINING!)                    'MS/SOTR - RBBS 15.1C
  52.       PRINT #2,INT(TIME.REMAINING!)                        'MS/SOTR - RBBS 15.1C
  53.       PRINT #2,USER.OPTIONS$                               'GMON MODIFICATION
  54.       CALL RBBSEXIT (A$(),2)
  55.       END SUB
  56. ' $SUBTITLE: 'RBBSEXIT -- Setup to exit to a RBBS'
  57. ' $PAGE
  58. '  SUBROUTINE NAME    -- RBBSEXIT
  59. '
  60. '  INPUT PARAMETERS   -- PARAMETER             MEANING
  61. '                        LINE.ARA        Array of lines to write to batch file
  62. '                        NUM.LINES       How many lines in array
  63. '
  64. '  OUTPUT PARAMETERS  -- RCTTY.BAT$
  65. '
  66. '  SUBROUTINE PURPOSE -- TO CREATE A BATCH FILE THAT CONTROL CAN BE PASSED TO
  67. '                        AND TO EXIT RBBS-PC WHILE STILL KEEPING CARRIER UP
  68. '
  69.       SUB RBBSEXIT (LINE.ARA$(1),NUM.LINES) STATIC
  70.